home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
ASSEMBLE
/
H055.ZIP
/
LIB
/
SYNERROR.ALC
< prev
next >
Wrap
Text File
|
1987-10-30
|
4KB
|
135 lines
TITLE 'SYNERROR - SUBROUTINE TO PRINT ERROR MESSAGE IN SYNAD'
* PGMID. SYNERROR.ALC
* AUTHOR. DON HIGGINS
* DATE. 10/19/87
* REMARKS.
* THIS SUBROUTINE MAY BE CALLED AT BEGINNING OF SYNAD EXIT TO
* DECODE DCB FUNCTION AND ERROR CODE IN R1 AND R0.
* MAINTENANCE.
*
* 10/21/87 REVERSE R0 AND R1 FOR COMPATABILITY WITH NATIVE DCB SYNAD
*
SYNERROR CSECT
USING *,R15
STM R0,R4,SAVE04
LA R3,FUNTAB
LA R4,MAXFUN
FUNSCH EQU *
CLM R1,3,0(R3)
BE FUNHIT
LA R3,12(R3)
BCT R4,FUNSCH
LA R2,=C'SYNAD FUNCTION NOT FOUND$'
SVC WTO
SYNEXT EQU *
LM R0,R4,SAVE04
BR R14
FUNHIT EQU * FUNCTION FOUND
MVC DFUN,4(R3) FUNCTION DESCRIPTION
MH R0,=H'20'
AH R0,2(R3) R1 = OFFSET TO ERROR MESSAGE FOR FUNCTION
LR R1,R0
LA R1,ERRTAB-20(R1)
MVC DERR,0(R1) ERROR DESCRIPTION
LA R3,DFILE
LA R4,L'DFILE
L R1,DCBDSN-IHADCB(R2)
DSNLOOP EQU *
MVC 0(1,R3),0(R1) FILE NAME
LA R1,1(R1)
LA R3,1(R3)
CLI 0(R1),0
BE DSNEND
BCT R4,DSNLOOP
DSNEND EQU *
MVI 0(R3),C'$'
LA R2,ERRMSG
SVC WTO
B SYNEXT
LTORG
SAVE04 DS 5F
ERRMSG DC C' I/O ERROR OP= '
DFUN DC CL8' ',C' ERR= '
DERR DC CL20' ',C' FILE='
DFILE DC CL20' ',C'$'
FUNTAB DS 0F
DC AL2(X'101',PCOPEN-ERRTAB),CL8'PC-OPEN'
DC AL2(X'03D',MSOPEN-ERRTAB),CL8'MS-OPEN'
DC AL2(X'03C',MSMAKE-ERRTAB),CL8'MS-MAKE'
DC AL2(X'102',PCCLOS-ERRTAB),CL8'PC-CLOSE'
DC AL2(X'03E',MSCLOS-ERRTAB),CL8'MS-CLOSE'
DC AL2(X'103',PCREAD-ERRTAB),CL8'PC-READ'
DC AL2(X'042',MSSETP-ERRTAB),CL8'MS-SET'
DC AL2(X'03F',MSREAD-ERRTAB),CL8'MS-READ'
DC AL2(X'104',PCWRIT-ERRTAB),CL8'PC-WRITE'
DC AL2(X'040',MSWRIT-ERRTAB),CL8'MS-WRITE'
DC AL2(X'105',PCGETR-ERRTAB),CL8'PC-GET'
DC AL2(X'106',PCPUTR-ERRTAB),CL8'PC-PUT'
DC AL2(X'107',PCDELF-ERRTAB),CL8'PC-DEL'
DC AL2(X'108',PCFIND-ERRTAB),CL8'PC-FIND'
DC AL2(X'109',PCRENF-ERRTAB),CL8'PC-REN'
MAXFUN EQU (*-FUNTAB)/8
ERRTAB EQU *
PCOPEN EQU *
DC CL20'ALREADY OPEN' 1
DC CL20'HANDLE NOT NULL' 2
DC CL20'LRECL LT MIN' 3
DC CL20'USER BUFFER GT MAX' 4
DC CL20'USER BUFFER LT MIN' 5
DC CL20'R/W BUFFER LT LRECL' 6
DC CL20'MIN BUFFER NOT FREE' 7
DC CL20'GET MEMORY ERROR' 8
DC CL20'LRECL LT MIN' 9
DC CL20'LRECL GT MAX' 10
DC CL20'BLKSZ LT MIN' 11
DC CL20'BLKSZ GT MAX' 12
MSOPEN EQU * 03D 1-5
MSMAKE EQU * 03C 3-5
MSCLOS EQU * 03E 6
MSREAD EQU * 03F 5,6
MSWRIT EQU * 040 5,6
MSDELF EQU * 041 2,5
MSSETP EQU * 042 1,6
MSRENF EQU * 056 2,3,5,11H REN ERR'S
DC CL20'FUNCTION # INVALID' 1
DC CL20'FILE NOT FOUND' 2
DC CL20'PATH NOT FOUND' 3
DC CL20'NO HANDLE AVAILABLE' 4
DC CL20'ACCESS DENIED' 5
DC CL20'HANDLE INVALID' 6
PCCLOS EQU *
DC CL20'FILE NOT OPEN' 1 7
DC CL20'FREEMAIN ERROR' 2 8
PCREAD EQU *
DC CL20'FILE NOT OPEN' 1 9
DC CL20'SHORT BLK/BAD RBA' 2 10
DC CL20'ACCESS DENIED' 3 11
PCWRIT EQU * 042
DC CL20'FILE NOT OPEN' 1 12
DC CL20'NOT OUTPUT FILE' 2 13
DC CL20'SHORT BLK/BAD RBA' 3 14
DC CL20'ZERO BLK/BAD RBA' 4 15
DC CL20'DISK FULL' 5 16
DC CL20'NOT SAME DISK' 17 X'11' RENAME ERROR (SAVE SPACE)
PCGETR EQU *
DC CL20'FILE NOT OPEN' 1
DC CL20'RECFM INVALID' 2
DC CL20'RCD LNG LT MIN' 3
DC CL20'RCD LNG GT LRECL' 4
PCPUTR EQU *
DC CL20'FILE NOT OPEN' 1
DC CL20'RECFM INVALID' 2
DC CL20'RCD LNG GT LRECL' 3
DC CL20'RCD LNG LT MIN' 4
DC CL20'RCD LNG GT MAX' 5
DC CL20'NO EOR FOR TEXT' 6
PCDELF EQU *
PCFIND EQU *
PCRENF EQU *
DC CL20'FILE NOT CLOSED' 7
DC CL20'INVALID HANDLE' 8
COPY CPY\IHADCB
COPY CPY\EQUREGS
COPY CPY\EQUSVCS
END